home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / net / AmiCom_SysMUI.lha / AmiComSys / rexx / SendWEB.amicomsys < prev    next >
Text File  |  1997-07-28  |  764b  |  43 lines
  1. /* Send WEB-address to your browser
  2.  Currently supported is Aweb, Amosaic, Ibrowse and Voyager.
  3.  $VER: SendWEB.amicomsys 1.2 (28.07.1997) Håkan Parting
  4. */
  5. parse arg args
  6. options results
  7.  
  8. if show('P','AWEB.1') then
  9. do
  10.     address 'AWEB.1'
  11.     OPEN args
  12.     Exit
  13. end
  14. if show('P','AMOSAIC.1') then
  15. do 
  16.     address 'AMOSAIC.1'
  17.     JUMP URL args
  18.     Exit
  19. end
  20. if show('P','IBROWSE.1') then
  21. do
  22.     address 'IBROWSE.1'
  23.     NewWindow args
  24.     Exit
  25. end
  26. if show('P','IBROWSE') then
  27. do
  28.     address 'IBROWSE'
  29.     GOTOURL args
  30.     Exit
  31. end
  32. if show('P','VOYAGER') then
  33. do
  34.     address 'VOYAGER'
  35.     OPENURL args NEW
  36.     Exit
  37. end
  38. /* Here you can include the path to your web browser:
  39. ** Then it will be automatically started if it not already running. */
  40.  
  41. ADDRESS COMMAND "c:run >NIL: Internet:WWW/Ibrowse/Ibrowse" args;
  42. Exit
  43.